home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / CaseStudies / ch10.macromedia / brain.dcr / 00018.ls < prev    next >
Encoding:
Text File  |  1996-11-12  |  401 b   |  19 lines
  1. global gAllTogetherNow
  2.  
  3. on mouseDown
  4.   repeat with i = 36 to 77
  5.     set the foreColor of sprite 32 to i
  6.     updateStage()
  7.   end repeat
  8.   repeat with t = 1 to count(gQMObjList)
  9.     if getAt(gTrackingList, t) then
  10.       changVelocities(getAt(gQMObjList, t), gAllTogetherNow)
  11.     end if
  12.   end repeat
  13.   if gAllTogetherNow then
  14.     set gAllTogetherNow to 0
  15.   else
  16.     set gAllTogetherNow to 1
  17.   end if
  18. end
  19.